home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / xygraf.zip / BIRD.VEC next >
Text File  |  1995-01-14  |  1KB  |  119 lines
  1. PLAY("reset.vec")
  2. font("euro.chr")
  3. ZOOM(0.1, 0.05)
  4. SETLINE(1)
  5. COLOR(1)
  6. STYLE(1, 14)
  7. FILL(1)
  8. SCROLL(0, 0)
  9. dy = 30
  10. FOR i = 1 TO 12
  11.     ELLIPSE(1600,800+2*dy*i,0,360,dy*(i), dy*(i))
  12.     ELLIPSE(1600,2300-2*dy*i,0,360,dy*(i),dy*(i))
  13. NEXT
  14.  
  15.  
  16. @DN(1800, 1800)
  17. @Wing(1900, 1400)
  18. MIRROR(1600)
  19. @DN(1800, 1800)
  20. @Wing(1900, 1400)
  21.  
  22. MIRROR(0)
  23. ROTATE(0,0,0)
  24. ELLIPSE(1600,700,0,360,360, 360)
  25. FOR i = 0 to 60
  26.     @PERO(1800, 700, 1)
  27.     ROTATE(6 * i, 1600, 700)
  28. NEXT
  29. ROTATE(-90, 1600, 2000)
  30. @PERO(1600, 2000, 7)
  31. ROTATE(-100, 1600, 2000)
  32. @PERO(1600, 2000, 5)
  33. ROTATE(-80, 1600, 2000)
  34. @PERO(1600, 2000, 5)
  35.  
  36. ROTATE(0, 0, 0)
  37. ELLIPSE(1700,600,0,360,60, 130)
  38. ELLIPSE(1500,600,0,360,60, 130)
  39. ELLIPSE(1700,600,0,360,60, 60)
  40. ELLIPSE(1500,600,0,360,60, 60)
  41. ELLIPSE(1600,800,0,360,20,90)
  42.  
  43. END
  44.  
  45. @WING(xwin, ywin)
  46.     FOR i = 0 TO 10
  47. ROTATE(20*i-120,xwin,ywin)
  48. @PERO(xwin,ywin, i/2)
  49.     NEXT
  50. ZOOM(0.1, 0.05)
  51. RETURN
  52.  
  53. @DN(xdn, ydn)
  54. ROTATE(-180, xdn+40, ydn+40)
  55. FOR i = 0 TO 19
  56.     ROTATE(20*i, xdn+40, ydn+40)
  57.     @PERO(xdn, ydn,1)
  58.  
  59. NEXT
  60. RETURN
  61.  
  62. @PERO(x, y,sz)
  63.     x1=x+40*sz
  64.     x2=x+100*sz
  65.     x3=x+230*sz
  66.     x4=x+300*sz
  67.     y1=y-20*sz: y2=y-30*sz: y3=y+20*sz
  68.     y4=y+30*sz
  69.     POLY(7,x1,y,x2,y1,x3,y2,x4,y,x3,y4, x2,y3,x1,y)
  70.     LINE(x, y, x + 300, y)
  71. RETURN
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.